Option Explicit
Sub C_Sample048()
    Dim myWb As Workbook
    Dim myWd As Window
    Set myWb = Workbooks(1)       				'Nï
    Set myWd = myWb.Windows(1)					'N
    With myWd
        .Visible = False							'
        MsgBox "wg]ܪAA{bAܡC"
        .Visible = True 							'
    End With
    Set myWd = Nothing						'
    Set myWb = Nothing
End Sub

